home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / vesacode / sinus.pas < prev    next >
Pascal/Delphi Source File  |  1996-01-28  |  799b  |  25 lines
  1. {$A+,B-,D-,E-,F-,G+,I+,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,Y-}
  2. {$M 16384,0,655360}
  3.  
  4. { written by zÅ∩ }
  5.  
  6. { die Tabelle muß noch nachformatiert werden }
  7.  
  8. program Sinus;
  9.  
  10. var f: text;                            { Dateihandle }
  11.     i: byte;                            { Laufvariable }
  12. begin
  13.    assign(f,'sinus.dat');               { Datei zuweisen }
  14.    rewrite(f);                          { und kreieren }
  15.  
  16.    for i:=0 to 255 do                   { Vollwinkel durchlaufen }
  17.    begin
  18.       if i mod 16=0 then                { 16 Zahlen pro Zeile }
  19.          write(f,#13#10'db ');
  20.       write(f,byte(round(sin((i+0.5)*pi/128)*127)):3,',');
  21.                                         { Winkel berechnen und ausgeben }
  22.    end;
  23.  
  24.    close(f);                            { Datei schließen }
  25. end.